home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Interfaces / PInterfaces / Folders.p < prev    next >
Encoding:
Text File  |  1995-07-06  |  2.8 KB  |  97 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Folders.p
  3.  
  4.      Contains:    Folder Manager Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs@applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. }
  19.  
  20. {$IFC UNDEFINED UsingIncludes}
  21. {$SETC UsingIncludes := 0}
  22. {$ENDC}
  23.  
  24. {$IFC NOT UsingIncludes}
  25.  UNIT Folders;
  26.  INTERFACE
  27. {$ENDC}
  28.  
  29. {$IFC UNDEFINED __FOLDERS__}
  30. {$SETC __FOLDERS__ := 1}
  31.  
  32. {$I+}
  33. {$SETC FoldersIncludes := UsingIncludes}
  34. {$SETC UsingIncludes := 1}
  35.  
  36.  
  37. {$IFC UNDEFINED __TYPES__}
  38. {$I Types.p}
  39. {$ENDC}
  40. {    ConditionalMacros.p                                            }
  41.  
  42. {$IFC UNDEFINED __FILES__}
  43. {$I Files.p}
  44. {$ENDC}
  45. {    MixedMode.p                                                    }
  46. {    OSUtils.p                                                    }
  47. {        Memory.p                                                }
  48. {    Finder.p                                                    }
  49.  
  50. {$PUSH}
  51. {$ALIGN MAC68K}
  52. {$LibExport+}
  53.  
  54. CONST
  55.     kOnSystemDisk                = $8000;
  56.     kCreateFolder                = true;
  57.     kDontCreateFolder            = false;
  58.     kSystemFolderType            = 'macs';                        { the system folder }
  59.     kDesktopFolderType            = 'desk';                        { the desktop folder; objects in this folder show on the desk top. }
  60.     kTrashFolderType            = 'trsh';                        { the trash folder; objects in this folder show up in the trash }
  61.     kWhereToEmptyTrashFolderType = 'empt';                        { the "empty trash" folder; Finder starts empty from here down }
  62.     kPrintMonitorDocsFolderType    = 'prnt';                        { Print Monitor documents }
  63.     kStartupFolderType            = 'strt';                        { Finder objects (applications, documents, DAs, aliases, to...) to open at startup go here }
  64.     kShutdownFolderType            = 'shdf';                        { Finder objects (applications, documents, DAs, aliases, to...) to open at shutdown go here }
  65.     kAppleMenuFolderType        = 'amnu';                        { Finder objects to put into the Apple menu go here }
  66.     kControlPanelFolderType        = 'ctrl';                        { Control Panels go here (may contain INITs) }
  67.     kExtensionFolderType        = 'extn';                        { Finder extensions go here }
  68.     kFontsFolderType            = 'font';                        { Fonts go here }
  69.     kPreferencesFolderType        = 'pref';                        { preferences for applications go here }
  70.     kTemporaryFolderType        = 'temp';
  71.  
  72. {$IFC SystemSevenOrLater }
  73.  
  74. FUNCTION FindFolder(vRefNum: INTEGER; folderType: OSType; createFolder: BOOLEAN; VAR foundVRefNum: INTEGER; VAR foundDirID: LONGINT): OSErr;
  75.     {$IFC NOT GENERATINGCFM}
  76.     INLINE $7000, $A823;
  77.     {$ENDC}
  78. {$ELSEC}
  79.  
  80. FUNCTION FindFolder(vRefNum: INTEGER; folderType: OSType; createFolder: BOOLEAN; VAR foundVRefNum: INTEGER; VAR foundDirID: LONGINT): OSErr;
  81. {$ENDC}
  82. FUNCTION ReleaseFolder(vRefNum: INTEGER; folderType: OSType): OSErr;
  83.     {$IFC NOT GENERATINGCFM}
  84.     INLINE $700B, $A823;
  85.     {$ENDC}
  86.  
  87. {$ALIGN RESET}
  88. {$POP}
  89.  
  90. {$SETC UsingIncludes := FoldersIncludes}
  91.  
  92. {$ENDC} {__FOLDERS__}
  93.  
  94. {$IFC NOT UsingIncludes}
  95.  END.
  96. {$ENDC}
  97.